MID$ Anweisung im Atari BASIC

Ich denke da benötigen wir etwas mehr Quellcode drumherum und die Info welcher Basic Dialekt der Ursprung ist.

Das j+1 deutet auf eine Schleife hin und das ,1 auf eine gesuchte Länge von einem Zeichen. Aber das kann auch komplett was anderes sein.

PS: Wenn es das ist, könnte man A$(LEN(A$)/2) ansprechen...

Ich hatte oben auch noch was ergänzt...

A$/2 könnte bei ungeraden Zahlen Probleme bringen, also noch dort den Integer nehmen.

BASICCODE m8 das imho, wie ich ged8 habe.

Hallo,

wie wäre es mit

20040 M=16*(ASC(A$(J+1,J+1))-64)+ASC(A$(J+2,J+2))-64:POKE H,M

Ich hab selber nie mit BASIC programmiert aber ein Beispiel aus dem ATARI BASIC Reference Manual deutet darauf hin, daß

STRING(ANFANG,ENDE)

in etwa

MID$(STRING,ANFANG,ANZAHL)

bei ENDE=ANFANG+ANZAHL-1 entspricht.

Gruß, Rene

Vielleicht hilft es, 'M' an der Stelle mal mit einem Print ausgeben zu lassen. Das läßt dann Rückschlüsse zu, ob es dem erwarteten Wert entspricht. Bzw. A$, A$(J+1,J+2) und M ausgeben und dann so modifizieren, daß es am Ende funktioniert.

Hast du daran gedacht, dass im Atari BASIC alle Strings auf ihre maximal benötigte Länge DIMensioniert werden müssen?

Der Hinweis von rvetter ist für das eigentliche Problem genau richtig.

Hatte Atari Basic nicht die Angewohnheit, dass String(0) das erste Element war? Dann muss das +1 einfach weg.

10 DIM A$(20)
20 A$="ABCDEFGHIJ"
30 J=5
40 ? A$(J+1,J+1)
50 M=16*ASC(A$(J+1,J+1))
60 ? M

READY
RUN
F
1120

Siehe Zeile 50

Andars schrieb: Hallo,

ich möchte ein Basic Programm ins Atari Basic portieren. Das enthält aber MID$-Anweisungen. Wie kann ich so eine Anweisung ins Atari Basic übersetzen?

Beispiel:

ASC(MID$(A$,J+1,1)

Das ist mir zu undurchsichtig...

Die Zeile sieht 1:1 in Atari-BASIC übersetzt so aus:

ASC(A$(J+1, J+1))

und kann auf

ASC(A$(J+1))

gekürzt werden, da es für die umklammernde ASC-Funktion keine Länge des String benötigt. Zur Erklärung: MID$ ist eine in Atari ungebräuchliche Anweisung. J+1 ist die Stelle im String und 1 ist die Länge. In Atari BASIC wäre das von Stelle J+1 bis Stelle (J+1)-1+1. Da man für ASC keine Länge benötigt, weil der ASC-Wert nur einer Stelle, nämlich die ersten, als Wert zurückgegeben wird, kann man J+1 weglassen.

Andars schrieb: Ja, an die DIM-Anweisung habe ich gedacht.

Ich suche noch immer einen Ersatz für folgenden Ausdruck:

M=16*(ASC(MID$(A$,J+1,1))

,

also ohne MID$-Anweisung.

M=16*ASC(A$(J+1))

pps schrieb: Hatte Atari Basic nicht die Angewohnheit, dass String(0) das erste Element war? Dann muss das +1 einfach weg.

Nein.

Weitere Äquivalente:

LEFT$(A$, 10) => A$(1, 10)
RIGHT(A$, 10) => A$(10)

Es könnte auch

RIGHT$(A$, 10) => A$(LEN(A$)-10+1)

heißen, je nach BASIC-Dialekt.